object TransferDlg: TTransferDlg
  Left = 263
  Top = 99
  BorderStyle = bsDialog
  Caption = 'ISAM-DBASE-TRANSFER'
  ClientHeight = 236
  ClientWidth = 317
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  TextHeight = 14
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 300
    Height = 185
    Shape = bsFrame
    IsControl = True
  end
  object Gauge1: TGauge
    Left = 20
    Top = 16
    Width = 281
    Height = 33
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ForeColor = clBlue
    ParentFont = False
    Progress = 0
  end
  object CancelBtn: TBitBtn
    Left = 184
    Top = 200
    Width = 81
    Height = 29
    Cancel = True
    Caption = 'Ende'
    ModalResult = 2
    TabOrder = 0
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888880088
      8888888800008888888060888888888833318888880660888888888800008888
      8066608888888888E9960000066660000000000000808888066660FFF0888888
      00218888066660FFF088888817968888066660FFF088888888888888066060FF
      F088808820568888066660FFF088008847048888066660FFF0800000689E8888
      066660FFF088008847888888066660FFF0888088056A8888066660FFF0888888
      21B18888066660FFF08888880000888806660FFFF0888888222288880660FFFF
      F0888888AAAA8888060FFFFFF088888888888888000000000088888800008888
      88888888888888880000}
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object StartBttn: TBitBtn
    Left = 48
    Top = 200
    Width = 93
    Height = 29
    Hint = 'Start Transfer'
    Caption = 'Start'
    TabOrder = 1
    OnClick = StartBttnClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
      333333333333337FF3333333333333903333333333333377FF33333333333399
      03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
      99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
      99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
      03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
      33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
      33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
      3333777777333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object DBGrid1: TDBGrid
    Left = 20
    Top = 56
    Width = 277
    Height = 129
    DataSource = DataSource1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
  end
  object Table1: TTable
    Left = 264
    Top = 200
  end
  object IsamTable1: TIsamTable
    MyUnitName = 'E:\DELPHI\BIN\UNIT1.PAS'
    IsamKeyProc.Strings = (
      'Function KeyProc(Var Daten; KeyNr:Word): IsamKeyStr;'
      'var s : String;'
      'begin'
      '  s:= '#39#39';'
      '  with (Daten) do begin'
      '    case KeyNr of'
      '      1 : S:= '#39#39';'
      '    End;'
      '  end;'
      '  KeyProc:= s;'
      'end;'
      '')
    IsamRecord.Strings = (
      'Type'
      ' = Record'
      '  Dummy : Longint;'
      'end;')
    Left = 12
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 288
    Top = 200
  end
end